<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-cpp">#if __GLASGOW_HASKELL__ &lt; 802
</span><span class="hs-pragma">{-# OPTIONS_GHC -Wno-redundant-constraints #-}</span><span class="hs-cpp">
#endif
</span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">System.Console.Haskeline.Emacs</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-5"></span><span>
</span><span id="line-6"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Command.html"><span class="hs-identifier">System.Console.Haskeline.Command</span></a></span><span>
</span><span id="line-7"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Monads.html"><span class="hs-identifier">System.Console.Haskeline.Monads</span></a></span><span>
</span><span id="line-8"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Key.html"><span class="hs-identifier">System.Console.Haskeline.Key</span></a></span><span>
</span><span id="line-9"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Command.Completion.html"><span class="hs-identifier">System.Console.Haskeline.Command.Completion</span></a></span><span>
</span><span id="line-10"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Command.History.html"><span class="hs-identifier">System.Console.Haskeline.Command.History</span></a></span><span>
</span><span id="line-11"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Command.Undo.html"><span class="hs-identifier">System.Console.Haskeline.Command.Undo</span></a></span><span>
</span><span id="line-12"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Command.KillRing.html"><span class="hs-identifier">System.Console.Haskeline.Command.KillRing</span></a></span><span>
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html"><span class="hs-identifier">System.Console.Haskeline.LineState</span></a></span><span>
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.InputT.html"><span class="hs-identifier">System.Console.Haskeline.InputT</span></a></span><span>
</span><span id="line-15"></span><span>
</span><span id="line-16"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../exceptions/src/Control.Monad.Catch.html#"><span class="hs-identifier">Control.Monad.Catch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../exceptions/src/Control.Monad.Catch.html#MonadMask"><span class="hs-identifier">MonadMask</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-17"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Char.html#"><span class="hs-identifier">Data.Char</span></a></span><span>
</span><span id="line-18"></span><span>
</span><span id="line-19"></span><span class="hs-keyword">type</span><span> </span><span id="InputCmd"><span class="annot"><a href="System.Console.Haskeline.Emacs.html#InputCmd"><span class="hs-identifier hs-var">InputCmd</span></a></span></span><span> </span><span id="local-6989586621679098133"><span class="annot"><a href="#local-6989586621679098133"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span id="local-6989586621679098132"><span class="annot"><a href="#local-6989586621679098132"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679098131"><span class="annot"><a href="#local-6989586621679098131"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Control.Monad.IO.Class.html#MonadIO"><span class="hs-identifier hs-type">MonadIO</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098131"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../exceptions/src/Control.Monad.Catch.html#MonadMask"><span class="hs-identifier hs-type">MonadMask</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098131"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Command.html#Command"><span class="hs-identifier hs-type">Command</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="System.Console.Haskeline.InputT.html#InputCmdT"><span class="hs-identifier hs-type">InputCmdT</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098131"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679098133"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098132"><span class="hs-identifier hs-type">t</span></a></span><span>
</span><span id="line-20"></span><span class="hs-keyword">type</span><span> </span><span id="InputKeyCmd"><span class="annot"><a href="System.Console.Haskeline.Emacs.html#InputKeyCmd"><span class="hs-identifier hs-var">InputKeyCmd</span></a></span></span><span> </span><span id="local-6989586621679098130"><span class="annot"><a href="#local-6989586621679098130"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span id="local-6989586621679098129"><span class="annot"><a href="#local-6989586621679098129"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679098128"><span class="annot"><a href="#local-6989586621679098128"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Control.Monad.IO.Class.html#MonadIO"><span class="hs-identifier hs-type">MonadIO</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098128"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../exceptions/src/Control.Monad.Catch.html#MonadMask"><span class="hs-identifier hs-type">MonadMask</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098128"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Command.html#KeyCommand"><span class="hs-identifier hs-type">KeyCommand</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="System.Console.Haskeline.InputT.html#InputCmdT"><span class="hs-identifier hs-type">InputCmdT</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098128"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679098130"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679098129"><span class="hs-identifier hs-type">t</span></a></span><span>
</span><span id="line-21"></span><span>
</span><span id="line-22"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#emacsCommands"><span class="hs-identifier hs-type">emacsCommands</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#InputKeyCmd"><span class="hs-identifier hs-type">InputKeyCmd</span></a></span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-23"></span><span id="emacsCommands"><span class="annot"><span class="annottext">emacsCommands :: InputKeyCmd InsertMode (Maybe String)
</span><a href="System.Console.Haskeline.Emacs.html#emacsCommands"><span class="hs-identifier hs-var hs-var">emacsCommands</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[KeyMap (Command (InputCmdT m) InsertMode (Maybe String))]
-&gt; KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
forall a. [KeyMap a] -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#choiceCmd"><span class="hs-identifier hs-var">choiceCmd</span></a></span><span> </span><span class="hs-special">[</span><span>
</span><span id="line-24"></span><span>                    </span><span class="annot"><span class="annottext">[KeyMap (Command (InputCmdT m) InsertMode InsertMode)]
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. [KeyMap a] -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#choiceCmd"><span class="hs-identifier hs-var">choiceCmd</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode InsertMode)
InputKeyCmd InsertMode InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#simpleActions"><span class="hs-identifier hs-var">simpleActions</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode InsertMode)
InputKeyCmd InsertMode InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#controlActions"><span class="hs-identifier hs-var">controlActions</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode InsertMode)
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
-&gt; KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
forall (m :: * -&gt; *) s t u.
Monad m =&gt;
KeyCommand m s t -&gt; Command m t u -&gt; KeyCommand m s u
</span><a href="System.Console.Haskeline.Command.html#%3E%2B%3E"><span class="hs-operator hs-var">&gt;+&gt;</span></a></span><span> </span><span>
</span><span id="line-25"></span><span>                        </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
forall (m :: * -&gt; *) s t. KeyCommand m s t -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#keyCommand"><span class="hs-identifier hs-var">keyCommand</span></a></span><span> </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
InputKeyCmd InsertMode (Maybe String)
</span><a href="System.Console.Haskeline.Emacs.html#emacsCommands"><span class="hs-identifier hs-var">emacsCommands</span></a></span><span>
</span><span id="line-26"></span><span>                    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
InputKeyCmd InsertMode (Maybe String)
</span><a href="System.Console.Haskeline.Emacs.html#enders"><span class="hs-identifier hs-var">enders</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-27"></span><span>
</span><span id="line-28"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#enders"><span class="hs-identifier hs-type">enders</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#InputKeyCmd"><span class="hs-identifier hs-type">InputKeyCmd</span></a></span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-29"></span><span id="enders"><span class="annot"><span class="annottext">enders :: InputKeyCmd InsertMode (Maybe String)
</span><a href="System.Console.Haskeline.Emacs.html#enders"><span class="hs-identifier hs-var hs-var">enders</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[KeyMap (Command (InputCmdT m) InsertMode (Maybe String))]
-&gt; KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
forall a. [KeyMap a] -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#choiceCmd"><span class="hs-identifier hs-var">choiceCmd</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleChar"><span class="hs-identifier hs-var">simpleChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\n'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
-&gt; KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode (Maybe String)
forall (m :: * -&gt; *) s.
(Monad m, Result s) =&gt;
Command m s (Maybe String)
</span><a href="System.Console.Haskeline.Command.html#finish"><span class="hs-identifier hs-var">finish</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679098086"><span class="hs-identifier hs-var">eotKey</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
-&gt; KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode (Maybe String)
</span><a href="#local-6989586621679098085"><span class="hs-identifier hs-var">deleteCharOrEOF</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-30"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-31"></span><span>        </span><span id="local-6989586621679098086"><span class="annot"><span class="annottext">eotKey :: Key
</span><a href="#local-6989586621679098086"><span class="hs-identifier hs-var hs-var">eotKey</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span>
</span><span id="line-32"></span><span>        </span><span id="local-6989586621679098085"><span class="annot"><span class="annottext">deleteCharOrEOF :: Command (InputCmdT m) InsertMode (Maybe String)
</span><a href="#local-6989586621679098085"><span class="hs-identifier hs-var hs-var">deleteCharOrEOF</span></a></span></span><span> </span><span id="local-6989586621679098068"><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679098068"><span class="hs-identifier hs-var">s</span></a></span></span><span>
</span><span id="line-33"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679098068"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">InsertMode
</span><a href="System.Console.Haskeline.LineState.html#emptyIM"><span class="hs-identifier hs-var">emptyIM</span></a></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe String -&gt; CmdM (InputCmdT m) (Maybe String)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-34"></span><span>            </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="../../base/src/GHC.Base.html#otherwise"><span class="hs-identifier hs-var">otherwise</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#deleteNext"><span class="hs-identifier hs-var">deleteNext</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679098068"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">CmdM (InputCmdT m) InsertMode
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
-&gt; CmdM (InputCmdT m) (Maybe String)
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; (a -&gt; m b) -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E%3D"><span class="hs-operator hs-var">&gt;&gt;=</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode (Maybe String)
</span><a href="#local-6989586621679098064"><span class="hs-identifier hs-var">justDelete</span></a></span><span>
</span><span id="line-35"></span><span>        </span><span id="local-6989586621679098064"><span class="annot"><span class="annottext">justDelete :: Command (InputCmdT m) InsertMode (Maybe String)
</span><a href="#local-6989586621679098064"><span class="hs-identifier hs-var hs-var">justDelete</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[KeyMap (Command (InputCmdT m) InsertMode (Maybe String))]
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
forall (m :: * -&gt; *) s t. [KeyCommand m s t] -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#keyChoiceCmd"><span class="hs-identifier hs-var">keyChoiceCmd</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679098086"><span class="hs-identifier hs-var">eotKey</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
-&gt; KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#deleteNext"><span class="hs-identifier hs-var">deleteNext</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
-&gt; Command (InputCmdT m) InsertMode (Maybe String)
forall (m :: * -&gt; *) s t u.
Monad m =&gt;
Command m s t -&gt; Command m t u -&gt; Command m s u
</span><a href="System.Console.Haskeline.Command.html#%3E%7C%3E"><span class="hs-operator hs-var">&gt;|&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode (Maybe String)
</span><a href="#local-6989586621679098064"><span class="hs-identifier hs-var">justDelete</span></a></span><span>
</span><span id="line-36"></span><span>                            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode (Maybe String))
InputKeyCmd InsertMode (Maybe String)
</span><a href="System.Console.Haskeline.Emacs.html#emacsCommands"><span class="hs-identifier hs-var">emacsCommands</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-37"></span><span>
</span><span id="line-38"></span><span>
</span><span id="line-39"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#simpleActions"><span class="hs-identifier hs-type">simpleActions</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#controlActions"><span class="hs-identifier hs-type">controlActions</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#InputKeyCmd"><span class="hs-identifier hs-type">InputKeyCmd</span></a></span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span>
</span><span id="line-40"></span><span id="simpleActions"><span class="annot"><span class="annottext">simpleActions :: InputKeyCmd InsertMode InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#simpleActions"><span class="hs-identifier hs-var hs-var">simpleActions</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[KeyMap (Command (InputCmdT m) InsertMode InsertMode)]
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. [KeyMap a] -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#choiceCmd"><span class="hs-identifier hs-var">choiceCmd</span></a></span><span> </span><span>
</span><span id="line-41"></span><span>            </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#LeftKey"><span class="hs-identifier hs-var">LeftKey</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#goLeft"><span class="hs-identifier hs-var">goLeft</span></a></span><span>
</span><span id="line-42"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#RightKey"><span class="hs-identifier hs-var">RightKey</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#goRight"><span class="hs-identifier hs-var">goRight</span></a></span><span>
</span><span id="line-43"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#Backspace"><span class="hs-identifier hs-var">Backspace</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#deletePrev"><span class="hs-identifier hs-var">deletePrev</span></a></span><span>
</span><span id="line-44"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#Delete"><span class="hs-identifier hs-var">Delete</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#deleteNext"><span class="hs-identifier hs-var">deleteNext</span></a></span><span> </span><span>
</span><span id="line-45"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; InsertMode -&gt; InsertMode)
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(Char -&gt; s -&gt; t) -&gt; KeyCommand m s t
</span><a href="System.Console.Haskeline.Command.html#changeFromChar"><span class="hs-identifier hs-var">changeFromChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#insertChar"><span class="hs-identifier hs-var">insertChar</span></a></span><span>
</span><span id="line-46"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Key -&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall (m :: * -&gt; *).
(MonadState Undo m, CommandMonad m) =&gt;
Key -&gt; KeyCommand m InsertMode InsertMode
</span><a href="System.Console.Haskeline.Command.Completion.html#completionCmd"><span class="hs-identifier hs-var">completionCmd</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleChar"><span class="hs-identifier hs-var">simpleChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'\t'</span></span><span class="hs-special">)</span><span>
</span><span id="line-47"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#UpKey"><span class="hs-identifier hs-var">UpKey</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall s (m :: * -&gt; *).
(Save s, MonadState HistLog m) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.History.html#historyBack"><span class="hs-identifier hs-var">historyBack</span></a></span><span>
</span><span id="line-48"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#DownKey"><span class="hs-identifier hs-var">DownKey</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall s (m :: * -&gt; *).
(Save s, MonadState HistLog m) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.History.html#historyForward"><span class="hs-identifier hs-var">historyForward</span></a></span><span>
</span><span id="line-49"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#SearchReverse"><span class="hs-identifier hs-var">SearchReverse</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Direction -&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *).
MonadState HistLog m =&gt;
Direction -&gt; Command m InsertMode InsertMode
</span><a href="System.Console.Haskeline.Command.History.html#searchForPrefix"><span class="hs-identifier hs-var">searchForPrefix</span></a></span><span> </span><span class="annot"><span class="annottext">Direction
</span><a href="System.Console.Haskeline.Command.History.html#Reverse"><span class="hs-identifier hs-var">Reverse</span></a></span><span>
</span><span id="line-50"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#SearchForward"><span class="hs-identifier hs-var">SearchForward</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Direction -&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *).
MonadState HistLog m =&gt;
Direction -&gt; Command m InsertMode InsertMode
</span><a href="System.Console.Haskeline.Command.History.html#searchForPrefix"><span class="hs-identifier hs-var">searchForPrefix</span></a></span><span> </span><span class="annot"><span class="annottext">Direction
</span><a href="System.Console.Haskeline.Command.History.html#Forward"><span class="hs-identifier hs-var">Forward</span></a></span><span>
</span><span id="line-51"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall (m :: * -&gt; *).
MonadState HistLog m =&gt;
KeyCommand m InsertMode InsertMode
</span><a href="System.Console.Haskeline.Command.History.html#searchHistory"><span class="hs-identifier hs-var">searchHistory</span></a></span><span>
</span><span id="line-52"></span><span>            </span><span class="hs-special">]</span><span> </span><span>
</span><span id="line-53"></span><span>            </span><span>
</span><span id="line-54"></span><span id="controlActions"><span class="annot"><span class="annottext">controlActions :: InputKeyCmd InsertMode InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#controlActions"><span class="hs-identifier hs-var hs-var">controlActions</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[KeyMap (Command (InputCmdT m) InsertMode InsertMode)]
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. [KeyMap a] -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#choiceCmd"><span class="hs-identifier hs-var">choiceCmd</span></a></span><span>
</span><span id="line-55"></span><span>            </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'a'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#moveToStart"><span class="hs-identifier hs-var">moveToStart</span></a></span><span> </span><span>
</span><span id="line-56"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'e'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#moveToEnd"><span class="hs-identifier hs-var">moveToEnd</span></a></span><span>
</span><span id="line-57"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#goLeft"><span class="hs-identifier hs-var">goLeft</span></a></span><span>
</span><span id="line-58"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'f'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#goRight"><span class="hs-identifier hs-var">goRight</span></a></span><span>
</span><span id="line-59"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'l'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s. Command m s s
</span><a href="System.Console.Haskeline.Command.html#clearScreenCmd"><span class="hs-identifier hs-var">clearScreenCmd</span></a></span><span>
</span><span id="line-60"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'f'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordRight"><span class="hs-identifier hs-var">wordRight</span></a></span><span>
</span><span id="line-61"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'b'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordLeft"><span class="hs-identifier hs-var">wordLeft</span></a></span><span>
</span><span id="line-62"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Key -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlKey"><span class="hs-identifier hs-var">ctrlKey</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#LeftKey"><span class="hs-identifier hs-var">LeftKey</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordLeft"><span class="hs-identifier hs-var">wordLeft</span></a></span><span>
</span><span id="line-63"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Key -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlKey"><span class="hs-identifier hs-var">ctrlKey</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#RightKey"><span class="hs-identifier hs-var">RightKey</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordRight"><span class="hs-identifier hs-var">wordRight</span></a></span><span>
</span><span id="line-64"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'c'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">([Grapheme] -&gt; [Grapheme]) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#modifyWord"><span class="hs-identifier hs-var">modifyWord</span></a></span><span> </span><span class="annot"><span class="annottext">[Grapheme] -&gt; [Grapheme]
</span><a href="System.Console.Haskeline.Emacs.html#capitalize"><span class="hs-identifier hs-var">capitalize</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-65"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'l'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">([Grapheme] -&gt; [Grapheme]) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#modifyWord"><span class="hs-identifier hs-var">modifyWord</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; [Grapheme] -&gt; [Grapheme]
</span><a href="System.Console.Haskeline.LineState.html#mapBaseChars"><span class="hs-identifier hs-var">mapBaseChars</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toLower"><span class="hs-identifier hs-var">toLower</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-66"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'u'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">([Grapheme] -&gt; [Grapheme]) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#modifyWord"><span class="hs-identifier hs-var">modifyWord</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; [Grapheme] -&gt; [Grapheme]
</span><a href="System.Console.Haskeline.LineState.html#mapBaseChars"><span class="hs-identifier hs-var">mapBaseChars</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-67"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'_'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s.
(MonadState Undo m, Save s) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.Undo.html#commandUndo"><span class="hs-identifier hs-var">commandUndo</span></a></span><span>
</span><span id="line-68"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'x'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">KeyMap (Command (InputCmdT m) InsertMode InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s.
Monad m =&gt;
KeyCommand m s s -&gt; Command m s s
</span><a href="System.Console.Haskeline.Command.html#try"><span class="hs-identifier hs-var">try</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'u'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s.
(MonadState Undo m, Save s) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.Undo.html#commandUndo"><span class="hs-identifier hs-var">commandUndo</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-69"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'t'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#transposeChars"><span class="hs-identifier hs-var">transposeChars</span></a></span><span>
</span><span id="line-70"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'p'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall s (m :: * -&gt; *).
(Save s, MonadState HistLog m) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.History.html#historyBack"><span class="hs-identifier hs-var">historyBack</span></a></span><span>
</span><span id="line-71"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'n'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall s (m :: * -&gt; *).
(Save s, MonadState HistLog m) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.History.html#historyForward"><span class="hs-identifier hs-var">historyForward</span></a></span><span>
</span><span id="line-72"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'&lt;'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall s (m :: * -&gt; *).
(Save s, MonadState HistLog m) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.History.html#historyStart"><span class="hs-identifier hs-var">historyStart</span></a></span><span>
</span><span id="line-73"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'&gt;'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
forall s (m :: * -&gt; *).
(Save s, MonadState HistLog m) =&gt;
Command m s s
</span><a href="System.Console.Haskeline.Command.History.html#historyEnd"><span class="hs-identifier hs-var">historyEnd</span></a></span><span>
</span><span id="line-74"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#Home"><span class="hs-identifier hs-var">Home</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#moveToStart"><span class="hs-identifier hs-var">moveToStart</span></a></span><span>
</span><span id="line-75"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#End"><span class="hs-identifier hs-var">End</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode)
-&gt; Command (InputCmdT m) InsertMode InsertMode
forall t (m :: * -&gt; *) s.
(LineState t, Monad m) =&gt;
(s -&gt; t) -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.html#change"><span class="hs-identifier hs-var">change</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#moveToEnd"><span class="hs-identifier hs-var">moveToEnd</span></a></span><span>
</span><span id="line-76"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">[KeyMap (Command (InputCmdT m) InsertMode InsertMode)]
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. [KeyMap a] -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#choiceCmd"><span class="hs-identifier hs-var">choiceCmd</span></a></span><span>
</span><span id="line-77"></span><span>                </span><span class="hs-special">[</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'w'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">KillHelper -&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s t.
(MonadState KillRing m, MonadState Undo m, Save s, Save t) =&gt;
KillHelper -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.KillRing.html#killFromHelper"><span class="hs-identifier hs-var">killFromHelper</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode) -&gt; KillHelper
</span><a href="System.Console.Haskeline.Command.KillRing.html#SimpleMove"><span class="hs-identifier hs-var">SimpleMove</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#bigWordLeft"><span class="hs-identifier hs-var">bigWordLeft</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-78"></span><span>                </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Key -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaKey"><span class="hs-identifier hs-var">metaKey</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#Backspace"><span class="hs-identifier hs-var">Backspace</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">KillHelper -&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s t.
(MonadState KillRing m, MonadState Undo m, Save s, Save t) =&gt;
KillHelper -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.KillRing.html#killFromHelper"><span class="hs-identifier hs-var">killFromHelper</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode) -&gt; KillHelper
</span><a href="System.Console.Haskeline.Command.KillRing.html#SimpleMove"><span class="hs-identifier hs-var">SimpleMove</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordLeft"><span class="hs-identifier hs-var">wordLeft</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-79"></span><span>                </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'d'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">KillHelper -&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s t.
(MonadState KillRing m, MonadState Undo m, Save s, Save t) =&gt;
KillHelper -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.KillRing.html#killFromHelper"><span class="hs-identifier hs-var">killFromHelper</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode) -&gt; KillHelper
</span><a href="System.Console.Haskeline.Command.KillRing.html#SimpleMove"><span class="hs-identifier hs-var">SimpleMove</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordRight"><span class="hs-identifier hs-var">wordRight</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-80"></span><span>                </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'k'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">KillHelper -&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s t.
(MonadState KillRing m, MonadState Undo m, Save s, Save t) =&gt;
KillHelper -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.KillRing.html#killFromHelper"><span class="hs-identifier hs-var">killFromHelper</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode) -&gt; KillHelper
</span><a href="System.Console.Haskeline.Command.KillRing.html#SimpleMove"><span class="hs-identifier hs-var">SimpleMove</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#moveToEnd"><span class="hs-identifier hs-var">moveToEnd</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-81"></span><span>                </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">BaseKey -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#simpleKey"><span class="hs-identifier hs-var">simpleKey</span></a></span><span> </span><span class="annot"><span class="annottext">BaseKey
</span><a href="System.Console.Haskeline.Key.html#KillLine"><span class="hs-identifier hs-var">KillLine</span></a></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">KillHelper -&gt; Command (InputCmdT m) InsertMode InsertMode
forall (m :: * -&gt; *) s t.
(MonadState KillRing m, MonadState Undo m, Save s, Save t) =&gt;
KillHelper -&gt; Command m s t
</span><a href="System.Console.Haskeline.Command.KillRing.html#killFromHelper"><span class="hs-identifier hs-var">killFromHelper</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(InsertMode -&gt; InsertMode) -&gt; KillHelper
</span><a href="System.Console.Haskeline.Command.KillRing.html#SimpleMove"><span class="hs-identifier hs-var">SimpleMove</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; InsertMode
forall s. Move s =&gt; s -&gt; s
</span><a href="System.Console.Haskeline.LineState.html#moveToStart"><span class="hs-identifier hs-var">moveToStart</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-82"></span><span>                </span><span class="hs-special">]</span><span>
</span><span id="line-83"></span><span>            </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#ctrlChar"><span class="hs-identifier hs-var">ctrlChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; Command (InputCmdT m) InsertMode InsertMode
-&gt; KeyMap (Command (InputCmdT m) InsertMode InsertMode)
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Command (InputCmdT m) InsertMode InsertMode
InputCmd InsertMode InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#rotatePaste"><span class="hs-identifier hs-var">rotatePaste</span></a></span><span>
</span><span id="line-84"></span><span>            </span><span class="hs-special">]</span><span>
</span><span id="line-85"></span><span>
</span><span id="line-86"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#rotatePaste"><span class="hs-identifier hs-type">rotatePaste</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#InputCmd"><span class="hs-identifier hs-type">InputCmd</span></a></span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span>
</span><span id="line-87"></span><span id="rotatePaste"><span class="annot"><span class="annottext">rotatePaste :: InputCmd InsertMode InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#rotatePaste"><span class="hs-identifier hs-var hs-var">rotatePaste</span></a></span></span><span> </span><span id="local-6989586621679097849"><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679097849"><span class="hs-identifier hs-var">im</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">CmdM (InputCmdT m) KillRing
forall s (m :: * -&gt; *). MonadState s m =&gt; m s
</span><a href="System.Console.Haskeline.Monads.html#get"><span class="hs-identifier hs-var">get</span></a></span><span> </span><span class="annot"><span class="annottext">CmdM (InputCmdT m) KillRing
-&gt; (KillRing -&gt; CmdM (InputCmdT m) InsertMode)
-&gt; CmdM (InputCmdT m) InsertMode
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; (a -&gt; m b) -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E%3D"><span class="hs-operator hs-var">&gt;&gt;=</span></a></span><span> </span><span class="annot"><span class="annottext">KillRing -&gt; CmdM (InputCmdT m) InsertMode
forall {m :: * -&gt; *}. Monad m =&gt; KillRing -&gt; CmdM m InsertMode
</span><a href="#local-6989586621679097847"><span class="hs-identifier hs-var">loop</span></a></span><span>
</span><span id="line-88"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-89"></span><span>    </span><span id="local-6989586621679097847"><span class="annot"><span class="annottext">loop :: KillRing -&gt; CmdM m InsertMode
</span><a href="#local-6989586621679097847"><span class="hs-identifier hs-var hs-var">loop</span></a></span></span><span> </span><span id="local-6989586621679097839"><span class="annot"><span class="annottext">KillRing
</span><a href="#local-6989586621679097839"><span class="hs-identifier hs-var">kr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">KillRing -&gt; Maybe [Grapheme]
forall a. Stack a -&gt; Maybe a
</span><a href="System.Console.Haskeline.Command.KillRing.html#peek"><span class="hs-identifier hs-var">peek</span></a></span><span> </span><span class="annot"><span class="annottext">KillRing
</span><a href="#local-6989586621679097839"><span class="hs-identifier hs-var">kr</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-90"></span><span>                    </span><span class="annot"><span class="annottext">Maybe [Grapheme]
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; CmdM m InsertMode
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679097849"><span class="hs-identifier hs-var">im</span></a></span><span>
</span><span id="line-91"></span><span>                    </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679097837"><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097837"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">InsertMode -&gt; CmdM m InsertMode
forall (m :: * -&gt; *) s. (Monad m, LineState s) =&gt; Command m s s
</span><a href="System.Console.Haskeline.Command.html#setState"><span class="hs-identifier hs-var">setState</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Grapheme] -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#insertGraphemes"><span class="hs-identifier hs-var">insertGraphemes</span></a></span><span> </span><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097837"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679097849"><span class="hs-identifier hs-var">im</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-92"></span><span>                            </span><span class="annot"><span class="annottext">CmdM m InsertMode
-&gt; (InsertMode -&gt; CmdM m InsertMode) -&gt; CmdM m InsertMode
forall (m :: * -&gt; *) a b. Monad m =&gt; m a -&gt; (a -&gt; m b) -&gt; m b
</span><a href="../../base/src/GHC.Base.html#%3E%3E%3D"><span class="hs-operator hs-var">&gt;&gt;=</span></a></span><span> </span><span class="annot"><span class="annottext">KeyCommand m InsertMode InsertMode
-&gt; InsertMode -&gt; CmdM m InsertMode
forall (m :: * -&gt; *) s.
Monad m =&gt;
KeyCommand m s s -&gt; Command m s s
</span><a href="System.Console.Haskeline.Command.html#try"><span class="hs-identifier hs-var">try</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Key
</span><a href="System.Console.Haskeline.Key.html#metaChar"><span class="hs-identifier hs-var">metaChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'y'</span></span><span> </span><span class="annot"><span class="annottext">Key
-&gt; (InsertMode -&gt; CmdM m InsertMode)
-&gt; KeyCommand m InsertMode InsertMode
forall a. Key -&gt; a -&gt; KeyMap a
</span><a href="System.Console.Haskeline.Command.html#%2B%3E"><span class="hs-operator hs-var">+&gt;</span></a></span><span> </span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">InsertMode
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">KillRing -&gt; CmdM m InsertMode
</span><a href="#local-6989586621679097847"><span class="hs-identifier hs-var">loop</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">KillRing -&gt; KillRing
forall a. Stack a -&gt; Stack a
</span><a href="System.Console.Haskeline.Command.KillRing.html#rotate"><span class="hs-identifier hs-var">rotate</span></a></span><span> </span><span class="annot"><span class="annottext">KillRing
</span><a href="#local-6989586621679097839"><span class="hs-identifier hs-var">kr</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-93"></span><span>
</span><span id="line-94"></span><span>
</span><span id="line-95"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#wordRight"><span class="hs-identifier hs-type">wordRight</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#wordLeft"><span class="hs-identifier hs-type">wordLeft</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#bigWordLeft"><span class="hs-identifier hs-type">bigWordLeft</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span>
</span><span id="line-96"></span><span id="wordRight"><span class="annot"><span class="annottext">wordRight :: InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordRight"><span class="hs-identifier hs-var hs-var">wordRight</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; Bool) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#goRightUntil"><span class="hs-identifier hs-var">goRightUntil</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; InsertMode -&gt; Bool
</span><a href="System.Console.Haskeline.LineState.html#atStart"><span class="hs-identifier hs-var">atStart</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; Bool) -&gt; (Char -&gt; Bool) -&gt; Char -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isAlphaNum"><span class="hs-identifier hs-var">isAlphaNum</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-97"></span><span id="wordLeft"><span class="annot"><span class="annottext">wordLeft :: InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#wordLeft"><span class="hs-identifier hs-var hs-var">wordLeft</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; Bool) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#goLeftUntil"><span class="hs-identifier hs-var">goLeftUntil</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; InsertMode -&gt; Bool
</span><a href="System.Console.Haskeline.LineState.html#atStart"><span class="hs-identifier hs-var">atStart</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isAlphaNum"><span class="hs-identifier hs-var">isAlphaNum</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-98"></span><span id="bigWordLeft"><span class="annot"><span class="annottext">bigWordLeft :: InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#bigWordLeft"><span class="hs-identifier hs-var hs-var">bigWordLeft</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(InsertMode -&gt; Bool) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#goLeftUntil"><span class="hs-identifier hs-var">goLeftUntil</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; InsertMode -&gt; Bool
</span><a href="System.Console.Haskeline.LineState.html#atStart"><span class="hs-identifier hs-var">atStart</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; Bool) -&gt; (Char -&gt; Bool) -&gt; Char -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isSpace"><span class="hs-identifier hs-var">isSpace</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-99"></span><span>
</span><span id="line-100"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#modifyWord"><span class="hs-identifier hs-type">modifyWord</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="annot"><a href="System.Console.Haskeline.LineState.html#Grapheme"><span class="hs-identifier hs-type">Grapheme</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="System.Console.Haskeline.LineState.html#Grapheme"><span class="hs-identifier hs-type">Grapheme</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#InsertMode"><span class="hs-identifier hs-type">InsertMode</span></a></span><span>
</span><span id="line-101"></span><span id="modifyWord"><span class="annot"><span class="annottext">modifyWord :: ([Grapheme] -&gt; [Grapheme]) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.Emacs.html#modifyWord"><span class="hs-identifier hs-var hs-var">modifyWord</span></a></span></span><span> </span><span id="local-6989586621679097826"><span class="annot"><span class="annottext">[Grapheme] -&gt; [Grapheme]
</span><a href="#local-6989586621679097826"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679097825"><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679097825"><span class="hs-identifier hs-var">im</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Grapheme] -&gt; [Grapheme] -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#IMode"><span class="hs-identifier hs-var">IMode</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Grapheme] -&gt; [Grapheme]
forall a. [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#reverse"><span class="hs-identifier hs-var">reverse</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[Grapheme] -&gt; [Grapheme]
</span><a href="#local-6989586621679097826"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097822"><span class="hs-identifier hs-var">ys1</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[Grapheme] -&gt; [Grapheme] -&gt; [Grapheme]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097821"><span class="hs-identifier hs-var">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097820"><span class="hs-identifier hs-var">ys2</span></a></span><span>
</span><span id="line-102"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-103"></span><span>        </span><span class="annot"><a href="System.Console.Haskeline.LineState.html#IMode"><span class="hs-identifier hs-type">IMode</span></a></span><span> </span><span id="local-6989586621679097821"><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097821"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span id="local-6989586621679097819"><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097819"><span class="hs-identifier hs-var">ys</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; InsertMode -&gt; InsertMode
</span><a href="System.Console.Haskeline.LineState.html#skipRight"><span class="hs-identifier hs-var">skipRight</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Bool -&gt; Bool
</span><span class="hs-identifier hs-var">not</span></span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; Bool) -&gt; (Char -&gt; Bool) -&gt; Char -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isAlphaNum"><span class="hs-identifier hs-var">isAlphaNum</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">InsertMode
</span><a href="#local-6989586621679097825"><span class="hs-identifier hs-var">im</span></a></span><span>
</span><span id="line-104"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679097822"><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097822"><span class="hs-identifier hs-var">ys1</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679097820"><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097820"><span class="hs-identifier hs-var">ys2</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Grapheme -&gt; Bool) -&gt; [Grapheme] -&gt; ([Grapheme], [Grapheme])
forall a. (a -&gt; Bool) -&gt; [a] -&gt; ([a], [a])
</span><a href="../../base/src/GHC.List.html#span"><span class="hs-identifier hs-var">span</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isAlphaNum"><span class="hs-identifier hs-var">isAlphaNum</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; (Grapheme -&gt; Char) -&gt; Grapheme -&gt; Bool
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Grapheme -&gt; Char
</span><a href="System.Console.Haskeline.LineState.html#baseChar"><span class="hs-identifier hs-var">baseChar</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097819"><span class="hs-identifier hs-var">ys</span></a></span><span>
</span><span id="line-105"></span><span>
</span><span id="line-106"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#capitalize"><span class="hs-identifier hs-type">capitalize</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="System.Console.Haskeline.LineState.html#Grapheme"><span class="hs-identifier hs-type">Grapheme</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="System.Console.Haskeline.LineState.html#Grapheme"><span class="hs-identifier hs-type">Grapheme</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-107"></span><span id="capitalize"><span class="annot"><span class="annottext">capitalize :: [Grapheme] -&gt; [Grapheme]
</span><a href="System.Console.Haskeline.Emacs.html#capitalize"><span class="hs-identifier hs-var hs-var">capitalize</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-108"></span><span class="annot"><a href="System.Console.Haskeline.Emacs.html#capitalize"><span class="hs-identifier hs-var">capitalize</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679097815"><span class="annot"><span class="annottext">Grapheme
</span><a href="#local-6989586621679097815"><span class="hs-identifier hs-var">c</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679097814"><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097814"><span class="hs-identifier hs-var">cs</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; Grapheme -&gt; Grapheme
</span><a href="System.Console.Haskeline.LineState.html#modifyBaseChar"><span class="hs-identifier hs-var">modifyBaseChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toUpper"><span class="hs-identifier hs-var">toUpper</span></a></span><span> </span><span class="annot"><span class="annottext">Grapheme
</span><a href="#local-6989586621679097815"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="annot"><span class="annottext">Grapheme -&gt; [Grapheme] -&gt; [Grapheme]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">[Grapheme]
</span><a href="#local-6989586621679097814"><span class="hs-identifier hs-var">cs</span></a></span><span>
</span><span id="line-109"></span></pre></body></html>